home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / gfx / fract / MiniMand.lha / MiniMand / Mandel.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-04-12  |  526 b   |  19 lines
  1. /* MandelZoom Another sample ARexx script for MiniMand 1.0 */
  2.  
  3. rmin.1 = -2
  4. imin.1 = -2
  5. rmax.1 = 2
  6. imax.1 = 2
  7. rmin.2 = -1.2536646
  8. imin.2 = 0.0409576
  9. rmax.2 = -1.2517281
  10. imax.2 = 0.0423160
  11.  
  12. DO a = 0 TO 99
  13.     rl = rmin.1 + (rmin.2 - rmin.1) * a / 100
  14.     rh = rmax.1 + (rmax.2 - rmax.1) * a / 100
  15.     il = imin.1 + (imin.2 - imin.1) * a / 100
  16.     ih = imax.1 + (imax.2 - imax.1) * a / 100
  17.     ADDRESS COMMAND 'MiniMand SCRY 63 SCRX 63 PLANES 5 ITER 64 REMIN 'rl' REMAX 'rh' IMIN 'il' IMAX 'ih' SAVE RAM:Zoom.'1000+a' BATCH'
  18. END
  19.